perm filename UZ.F4[NEW,LCS] blob sn#539628 filedate 1980-10-01 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	1	FORMAT(3A1)
C00003 ENDMK
CāŠ—;
1	FORMAT(3A1)
2	FORMAT(3I)
3	ACCEPT 1,J,K,L
4	N='V'-'U'
5	M=(J-'U')/N
	M=(J-'U')/536870912
6	TYPE 2,M,N
7	GO TO 3
	END